home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / The World of Computer Software.iso / hmfsho.zip / PORTS16.LSP < prev    next >
Lisp/Scheme  |  1991-11-11  |  675b  |  25 lines
  1. ; PORTS16.LSP
  2. ; Creates 16-viewport screen configuration
  3. ; Written: Howard M. Fulmer  HMF CONSULTING (215) 275-9866  October 1991
  4. ; Adapted from: 4PORTS.LSP, AutoCAD 3D Book, Ventana Press
  5. (defun C:PORTS16()
  6.    (command ".tilemode" "1")
  7.    (command ".vports" "si")
  8.    (command ".vports" "4")
  9.    (setq VP (vports)
  10.          LR (car (nth 0 VP))
  11.          UR (car (nth 1 VP))
  12.          UL (car (nth 2 VP))
  13.          LL (car (nth 3 VP))
  14.    )
  15.    (setvar "CVPORT" UL)
  16.    (command ".vports" "4")
  17.    (setvar "CVPORT" UR)
  18.    (command ".vports" "4")
  19.    (setvar "CVPORT" LL)
  20.    (command ".vports" "4")
  21.    (setvar "CVPORT" LR)
  22.    (command ".vports" "4")
  23.    (prin1)
  24. )
  25.